/*/{Protheus.doc} SYNCCFT
Funcao que ajusta a data de inclusao/alteracao do cadastro de pessoas nas demais tabelas de cliente/fornecedores/transportadoras quando da alteracao dos mesmos.
@author Elton Teodoro Alves
@since 14/11/2014
@Param cCGC,Caracter,CNPJ da pessoa que sera ajustada
@Param cPes,Caracter,define com letras os cadastros a serem ajutados C = Cliente, F = Fornecedor e T = Transportadora
@version P11 R5
/*/
#Include 'Protheus.ch'

User Function SYNCCFT(cCGC,cPes)
	
	Local	aArea	:=	GetArea()
	
	cCGC := AllTrim(cCGC)
	
	If .Not. Empty(cCGC)
		
		If 'C' $ cPes
			
			DbSelectArea('SA1')
			DbSetOrder(3)
			
			If DbSeek(xFilial('SA1') + cCGC)
				
				RecLock('SA1',.F.)
				
				SA1->A1_XDTINAL	:=	Date()
				
				MsUnlock()
				
			End If
			
		End If
		
		If 'F' $ cPes
			
			DbSelectArea('SA2')
			DbSetOrder(3)
			
			If DbSeek(xFilial('SA2') + cCGC)
				
				RecLock('SA2',.F.)
				
				SA2->A2_XDTINAL	:=	Date()
				
				MsUnlock()
				
			End If
			
		End If
		
		If 'T' $ cPes
			
			DbSelectArea('SA4')
			DbSetOrder(3)
			
			If DbSeek(xFilial('SA4') + cCGC)
				
				RecLock('SA4',.F.)
				
				SA4->A4_XDTINAL	:=	Date()
				
				MsUnlock()
				
			End If
			
		End IF
		
	End If
	
	RestArea(aArea)
	
Return

